Imports RIBS.DataAccessLayer

Namespace BusinessLogicLayer
    Public Class ManualItems
        Public Shared Function AddNewManual() As Int32
            Dim DBLayer As New DataAccess
            Try
                Dim RibsID As Int32 = DBLayer.AddNewManual
                DBLayer.InsertNewAction(RibsID, _
                                         Globals.RIBSState.Unallocated.ToString, _
                                        "Created", _
                                        "#" & Format(Now, "dd MMM yyyy") & "#", _
                                        Globals.RIBSState.Unallocated.ToString, _
                                        Globals.RIBSState.Unallocated.ToString, _
                                        "", _
                                        NetWorkUserID)
                History.AllocateItem(RibsID, NetWorkUserID)

                Return RibsID
            Catch ex As Exception
                Throw ex
            End Try
        End Function
        
    End Class
End Namespace